home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / graphics.gc < prev    next >
Encoding:
Gui4CLI script  |  1999-05-14  |  2.7 KB  |  99 lines
  1. G4C
  2.  
  3. WINBIG 80 28 435 190 "Graphics.gc"
  4. WinType 11110001
  5.  
  6. ; --------------------------------------------------------------
  7. ;  The frame and a box for the headings
  8. ; --------------------------------------------------------------
  9.  
  10. BOX 0 0 435 190 OUT RIDGE
  11. BOX 5 2 424 25 out button
  12.  
  13. ; --------------------------------------------------------------
  14. ; COLOUR TEXT
  15. ; --------------------------------------------------------------
  16.  
  17. ; Colour text used in the headings.  Arguments are :
  18.  
  19. ;     L   T     Text     font size Fg Bg Mask
  20. ;     |   |      |         |     |  |  |   |
  21. CTEXT 92 168 'GRAPHICS' #screen  8  2  0  00013
  22.  
  23. CTEXT 19 11 "Boxes       Lines        Squares        Circles"  #mono 8 2 0 00132
  24.  
  25. ; The 'mask' sets the text style for Underline-Bold-Italics-Shade-ShadeLength
  26.  
  27.  
  28. ; --------------------------------------------------------------
  29. ; BOXES - Arguments are the usual L  T  W  H plus options.
  30. ; Options are IN|OUT and BUTTON|RIDGE|ICONDROP
  31. ; --------------------------------------------------------------
  32.  
  33. BOX 10 30 40 20 IN BUTTON
  34. BOX 10 55 40 20 OUT BUTTON
  35. BOX 10 80 40 20 IN RIDGE
  36. BOX 10 105 40 20 OUT RIDGE
  37. BOX 10 130 40 20 IN ICONDROP
  38. BOX 10 155 40 20 OUT ICONDROP
  39.  
  40. ; --------------------------------------------------------------
  41. ; LINES - Five arguments : L.1 T.1 L.2 T.2 and Colour
  42. ; --------------------------------------------------------------
  43.  
  44. LINE 80 40 80 160 1
  45. LINE 80 161 180 161 1
  46. LINE 82 40 95 160 2
  47. LINE 82 40 110 160 3
  48. LINE 82 40 125 160 4
  49. LINE 82 40 140 160 5
  50. LINE 82 40 155 160 6
  51. LINE 82 40 170 160 7
  52.  
  53. ; These lines divide the window vertically
  54.  
  55. LINE 66 26 66 187 1 
  56. LINE 190 26 190 187 1 
  57. LINE 304 26 304 187 1 
  58.  
  59.  
  60. ; --------------------------------------------------------------
  61. ; SQUARES - Arguments : L T W H, colour, FILL|NOFILL
  62. ; --------------------------------------------------------------
  63.  
  64. SQUARE 200 30 30 20 1 nofill
  65. SQUARE 250 30 30 20 1 fill
  66. SQUARE 200 70 40 20 2 nofill
  67. SQUARE 250 70 40 20 2 fill
  68. SQUARE 200 110 45 20 3 nofill
  69. SQUARE 250 110 45 20 3 fill
  70. SQUARE 200 154 90 6 4 nofill
  71. SQUARE 270 134 10 50 4 fill
  72.  
  73. ; --------------------------------------------------------------
  74. ; CIRCLES - Arguments : CenterX CenterY xradius yradius colour FILL|NOFILL
  75. ; --------------------------------------------------------------
  76.  
  77. CIRCLE 340 40 20 10 1 nofill
  78. CIRCLE 390 40 20 10 1 fill
  79. CIRCLE 340 80 30 10 2 nofill
  80. CIRCLE 390 80 30 10 2 fill
  81. CIRCLE 340 120 25 20 3 nofill
  82. CIRCLE 390 120 25 20 3 fill
  83. CIRCLE 340 160 15 25 4 nofill
  84. CIRCLE 390 160 15 25 4 fill
  85.  
  86.  
  87. ; --------------------------------------------------------------
  88. ; Normal program coding, such as it is, starts here.
  89. ; --------------------------------------------------------------
  90.  
  91. xonLoad 
  92.     GuiOpen Graphics.gc
  93.  
  94. xonClose
  95.     GuiQuit Graphics.gc
  96.  
  97.  
  98.     
  99.